Public Class System
	Inherits TcKs.MSOffice.Common.ChildObjectWrapperBase
	
	Friend Sub New ( ByVal nativeObject As Global.System.Object,  ByVal rootObject As Global.TcKs.MSOffice.Common.RootObjectWrapperBase )
		MyBase.New ( nativeObject, rootObject )
	End Sub 
	
	Public Sub MSInfo(  )
		MyBase.WrappedObject.MSInfo(  )
	End Sub 
	
	Public Sub Connect( aPath As Global.System.String, aDrive As Global.System.Object, aPassword As Global.System.Object )
		MyBase.WrappedObject.Connect( aPath, aDrive, aPassword )
	End Sub 
	
	Public ReadOnly Property Application As Global.TcKs.MSOffice.Word.Application
		Get 
			Dim ret As Global.TcKs.MSOffice.Word.Application =  Me.FindTopRootObject()
			Return ret
		End Get 
	End Property 
	
	Public ReadOnly Property Creator As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.Creator
		End Get 
	End Property 
	
	Public ReadOnly Property Parent As Global.System.Object
		Get 
			Return MyBase.WrappedObject.Parent
		End Get 
	End Property 
	
	Public ReadOnly Property OperatingSystem As Global.System.String
		Get 
			Return MyBase.WrappedObject.OperatingSystem
		End Get 
	End Property 
	
	Public ReadOnly Property ProcessorType As Global.System.String
		Get 
			Return MyBase.WrappedObject.ProcessorType
		End Get 
	End Property 
	
	Public ReadOnly Property Version As Global.System.String
		Get 
			Return MyBase.WrappedObject.Version
		End Get 
	End Property 
	
	Public ReadOnly Property FreeDiskSpace As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.FreeDiskSpace
		End Get 
	End Property 
	
	Public ReadOnly Property Country As Global.TcKs.MSOffice.Word.WdCountry
		Get 
			Return MyBase.WrappedObject.Country
		End Get 
	End Property 
	
	Public ReadOnly Property LanguageDesignation As Global.System.String
		Get 
			Return MyBase.WrappedObject.LanguageDesignation
		End Get 
	End Property 
	
	Public ReadOnly Property HorizontalResolution As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.HorizontalResolution
		End Get 
	End Property 
	
	Public ReadOnly Property VerticalResolution As Global.System.Int32
		Get 
			Return MyBase.WrappedObject.VerticalResolution
		End Get 
	End Property 
	
	Public ReadOnly Property MathCoprocessorInstalled As Global.System.Boolean
		Get 
			Return MyBase.WrappedObject.MathCoprocessorInstalled
		End Get 
	End Property 
	
	Public ReadOnly Property ComputerType As Global.System.String
		Get 
			Return MyBase.WrappedObject.ComputerType
		End Get 
	End Property 
	
	Public ReadOnly Property MacintoshName As Global.System.String
		Get 
			Return MyBase.WrappedObject.MacintoshName
		End Get 
	End Property 
	
	Public ReadOnly Property QuickDrawInstalled As Global.System.Boolean
		Get 
			Return MyBase.WrappedObject.QuickDrawInstalled
		End Get 
	End Property 
	
	Public Property Cursor As Global.TcKs.MSOffice.Word.WdCursorType
		Get 
			Return MyBase.WrappedObject.Cursor
		End Get 
		Set ( ByVal Value As Global.TcKs.MSOffice.Word.WdCursorType )
			MyBase.WrappedObject.Cursor = Value 
		End Set 
	End Property 
	
	Public ReadOnly Property CountryRegion As Global.TcKs.MSOffice.Word.WdCountry
		Get 
			Return MyBase.WrappedObject.CountryRegion
		End Get 
	End Property 
	
End Class 
